unit XmlVisitors ;

interface

uses
   Classes,
   XmlInterpreter,
   uObjects ;

type
   TXmlBuilder = class( TXmlInterpreterVisitor )
   private
      fModule : TMedaModule ;
      fBuiding : TMedaObject ;
   protected
   public
      property Module : TMedaModule read fModule write fModule ;
      property Building : TMedaObject read fBuiding ;
   end ;

   TXmlBuilderClass = class of TXmlBuilder ;

   TXmlPartBuilder = class( TXmlBuilder )
   private
   protected
   public
      constructor Create ;
      destructor Destroy ; override ;

      procedure Visit( Exp : TXmlStartTag ) ; override ;
      procedure Visit( Exp : TXmlEndTag ) ; override ;
      procedure Visit( Exp : TXmlNode ) ; override ;
      procedure Visit( Exp : TXmlProlog ) ; override ;
   end ;

implementation

uses
   SysUtils ;

{ TXmlPartBuilder }

constructor TXmlPartBuilder.Create ;
begin

end ;

destructor TXmlPartBuilder.Destroy ;
begin

   inherited ;
end ;

procedure TXmlPartBuilder.Visit( Exp : TXmlStartTag ) ;
begin
   inherited ;

end ;

procedure TXmlPartBuilder.Visit( Exp : TXmlEndTag ) ;
begin
   inherited ;

end ;

procedure TXmlPartBuilder.Visit( Exp : TXmlProlog ) ;
begin
   inherited ;

end ;

procedure TXmlPartBuilder.Visit( Exp : TXmlNode ) ;
begin
   inherited ;

end ;

end.

